∙ÇO » For 128 or 512K Macintosh, Microsoft Basic, Version 2.00 (binary math.) Çü » Program to compute and plot the vertical radiation pattern of a horizontal antenna. over a perfect conducting flat earth. ÇH » By Carroll W Swain, (W 7 D U), 1116 S. 274th Pl. Kent Wa. 98032 ÇA
Ü "Antenna Height (Feet)"; H: » " H=Antenna height in feet" Ç8 Ü "FREQUENCY (MHZ)" ; F: » " F= frequency in MHZ" Ç8 ₧ A0Ω:» Set A0 (initial Vert. angle) to 0 degrees Ç9 ₧ BΩ┤ : » Set B (final vert. angle) to 180 degrees Ç/ "₧ CΩ : » Set C (step size) to one degree Ç $°╢ (÷,≡), Ç< (₧ WΩ DuΣ{∩F: » "W= Wavelength in feet at frequency F" Ç9 2â √≥ (÷,≡ ) :» "position pen lower center screen" ÇD Fö AΩA0 σ B ∙∙ C: » "setup initial & final angles & step size " Ç6 G₧ AΩAε @I∙∩┤ : » " convert angle A to radians" Ç= H₧ LΩεHε╡ (A): » "L= difference in path length in feet" Ç< P₧ LΩ(L∩W)εε @I∙: » Convert L to phase shift, radians ÇF Z₧ SΩ(φεë (L))≡ ? : » S= signal strength on a scale of 0 to 2 ÇB _₧ XΩ÷∞SεKεë (A): » compute X coordinate for point on curve Ç> `₧ YΩ≡φSεKε╡ (A): » compute Y coordinate for same point ÇE dâ √≡ (X,Y): » draw a line from present position to location X,Y Ç2 i₧ AΩAε┤∩ @I∙: » convert A back to degrees ÇC n⌐ A: » Increment angle A and repeat computation and plotting ÇF sƒ (,≡)φ( ∞,≡): » Draw horizontal line across bottom of plot. Ç x°╢ (÷,≡),û,!,, @I∙ Ç é°╢ (÷,≡),K,!,, @I∙ Ç î°╢ (÷,≡),p,!,, @I∙ Ç ûâ √≥ (Ω, ): ¼ Ç áâ √≥ ( 5, ): ¼ ? Ç ¬â √≥ ( X, ) : ¼ ?@ Ç ┤â √≥ ( , ): ¼ Ç ╛°Å
